object DateCalcForm: TDateCalcForm
  Left = 40
  Top = 108
  BorderStyle = bsDialog
  Caption = 'Date Calculator'
  ClientHeight = 176
  ClientWidth = 547
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = -1
    Width = 545
    Height = 84
    Caption = 'When`s That Happening Then?'
    TabOrder = 0
    object DaysLabel: TLabel
      Left = 18
      Top = 42
      Width = 33
      Height = 13
      Caption = '0 Days'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object WeeksLabel: TLabel
      Left = 82
      Top = 42
      Width = 43
      Height = 13
      Caption = '0 Weeks'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 62
      Top = 48
      Width = 11
      Height = 24
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 134
      Top = 48
      Width = 11
      Height = 24
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LMonthsLabel: TLabel
      Left = 153
      Top = 42
      Width = 74
      Height = 13
      Caption = '0 Luner Months'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 242
      Top = 48
      Width = 11
      Height = 24
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object CMonthsLabel: TLabel
      Left = 261
      Top = 42
      Width = 62
      Height = 13
      Caption = '0 Cal Months'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 340
      Top = 48
      Width = 11
      Height = 24
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object YearsLabel: TLabel
      Left = 376
      Top = 42
      Width = 36
      Height = 13
      Caption = '0 Years'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 84
      Top = 16
      Width = 11
      Height = 24
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 447
      Top = 51
      Width = 11
      Height = 24
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Datebtn: TButton
      Left = 5
      Top = 14
      Width = 75
      Height = 25
      Hint = 'Starting Date'
      Caption = '23.03.1966'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = DatebtnClick
    end
    object DaysTrack: TTrackBar
      Left = 3
      Top = 55
      Width = 60
      Height = 22
      Max = 6
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = DaysTrackChange
    end
    object WeeksTrack: TTrackBar
      Tag = 1
      Left = 74
      Top = 55
      Width = 60
      Height = 22
      Max = 5
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 2
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = DaysTrackChange
    end
    object LMonthsTrack: TTrackBar
      Tag = 2
      Left = 146
      Top = 55
      Width = 95
      Height = 22
      Max = 13
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 3
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = DaysTrackChange
    end
    object CMonthsTrack: TTrackBar
      Tag = 3
      Left = 254
      Top = 55
      Width = 85
      Height = 22
      Max = 12
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 4
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = DaysTrackChange
    end
    object YearsTrack: TTrackBar
      Tag = 4
      Left = 352
      Top = 55
      Width = 95
      Height = 22
      Max = 50
      Orientation = trHorizontal
      Frequency = 2
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 5
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = DaysTrackChange
    end
    object Calculatebtn: TBitBtn
      Left = 464
      Top = 14
      Width = 76
      Height = 23
      Hint = 'Add It All Together'
      Caption = 'Calculate'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = CalculatebtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
        73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
        0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
        0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
        0333337F777777737F333308888888880333337F333333337F33330888888888
        03333373FFFFFFFF733333700000000073333337777777773333}
      NumGlyphs = 2
    end
    object ResultPanel: TPanel
      Left = 464
      Top = 52
      Width = 76
      Height = 24
      Hint = 'Result Of Calculation'
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 88
    Width = 545
    Height = 87
    Caption = 'How Long Will It Take?'
    TabOrder = 1
    object Label4: TLabel
      Left = 6
      Top = 16
      Width = 111
      Height = 24
      Caption = 'Distance that:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 299
      Top = 16
      Width = 68
      Height = 24
      Caption = 'Is From:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ResultLabel: TLabel
      Left = 92
      Top = 62
      Width = 3
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object FromDatebtn: TButton
      Left = 120
      Top = 19
      Width = 169
      Height = 25
      Caption = 'Wednesday, 28 November, 1998'
      TabOrder = 0
      OnClick = FromDatebtnClick
    end
    object ToDatebtn: TButton
      Left = 372
      Top = 19
      Width = 169
      Height = 25
      Caption = 'Wednesday, 28 November, 1998'
      TabOrder = 1
      OnClick = ToDatebtnClick
    end
    object BitBtn1: TBitBtn
      Left = 7
      Top = 58
      Width = 82
      Height = 23
      Hint = 'Add It All Together'
      Caption = 'Answer Is..'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
        73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
        0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
        0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
        0333337F777777737F333308888888880333337F333333337F33330888888888
        03333373FFFFFFFF733333700000000073333337777777773333}
      NumGlyphs = 2
    end
  end
end